home *** CD-ROM | disk | FTP | other *** search
/ Safarir 3 / SafTV-CD3.iso / pc / Bonus / Dessins Animés / static / jeux / tetris.swf / scripts / frame_14 / DoAction.as
Text File  |  2001-11-21  |  688b  |  32 lines
  1. n = "0";
  2. yn = "0";
  3. while(n < "4")
  4. {
  5.    n += "1";
  6.    if("0" < eval("c" add (x + eval("x" add tc add ts add n) + "20") add (y + eval("y" add tc add ts add n) + "21")))
  7.    {
  8.       yn = "1";
  9.    }
  10. }
  11. if(yn == "0")
  12. {
  13.    call("delbox");
  14.    y += "1";
  15.    call("addbox");
  16.    gotoAndPlay(28);
  17. }
  18. else
  19. {
  20.    n = "0";
  21.    while(n < "4")
  22.    {
  23.       n += "1";
  24.       set("c" add (x + eval("x" add tc add ts add n) + "20") add (y + eval("y" add tc add ts add n) + "20"),"1");
  25.       tellTarget("b" add (x + eval("x" add tc add ts add n) + "20") add (y + eval("y" add tc add ts add n) + "20"))
  26.       {
  27.          gotoAndStop(eval("/:lev") + "1");
  28.       }
  29.    }
  30.    gotoAndPlay(26);
  31. }
  32.